program Project1; // Zadanie 3.22

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 znak : char;

begin
 Writeln('Program wyswietla duze litery alfabetu od A do Z i od Z do A.');
 Writeln;

 for znak := 'A' to 'Z' do
  if znak < 'Z' then
    Write(znak, ', ')
  else
    Write(znak, '.');

 Writeln;

 for znak := 'Z' downto 'A' do
  if znak >= 'B' then
    Write(znak, ', ')
  else
    Write(znak, '.');

 Readln; // czeka na nacisniecie klawisza Enter
end.
